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/* Project VendView 
SKY Wire, LP 

Copyright © 1994. All Rights Reserved. 

SUBSYSTEM: vendview.exe Application 
FILE : vndvs tos . cpp 

AUTHOR: Robert M. Cowling 

to 

11 OVERVIEW 

12 . 

/3 Calculate Space TO Sales 
14 

/5 V 

16 #pragma hdrfile " vndvwapp . csnT 

/7 #include " vndvwhdr . h " 

i8 tpragma hdrstop 
/9 

20 typedef 

21 struct 
12 { 

23 int code; 

24 int removed; 

25 char product 1 16]; 

26 int velocity; 

27 int capacity; 

28 int optimumCapacity; 

29 int newCapacity; 

30 } BUTTONS; 

Si 

32 typedef 
53 struct 

34 { 

35 int capacity; 

36 int assigned; 

37 int newAssignment; 

38 } COLUMNS; 
39 

40 

41 // MAX_BUTTONS is defined in vndvmdi5.h as 10 

42 #define MAX_BUTTONS12 12 

43 //idefine MAX_COLS 20 
44 

45 Wefine MAX_S2SDAYS (-90) // -90 «= 90 days back 

-46 #define MIN_S2SDAYS (-14) 
47 

48 // Paradox engine object and database object 

49 // 

50 extern BEngine +dbEngine; 

51 extern BDat abase *db Dat abase; 
52 

53 // location of common databases 

34 extern char szCommDir [ ] ; 

55 extern char szMapDir[]; 
56 

37 extern char szMachStatTableName [ ] ; // = "MACHSTAT" 

6Q extern char szFacilityTableName ( ] ; // = "FACILITY" 

59 extern char szProductTableName [ ] ; // = "PRODUCT" 

00 extern char szMachineLoadTable [ ] ; // « "MACHLOAD " 

W 

62 // 

63 // 

64 // 

65 long EvaluateFit (BUTTONS buttons [], int count) 

66 { 



+ 
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£7 int index; 

fr8 long answer - 0; 

69 

70 for (index = 0; index < count; index++) 

72 { long diff = buttons [ index] . opt iraumCapacity - buttons [index] . newCapacity; 

73 long prod = diff * diff; 

74 answer += prod; 

75 i 

To return answer; 

77 ) 

73 

79 

&0 tpragma argsused 

$1 // Parameters passed: 

%2 // Report code: 4 character report code - e.g. CASH - zero terminated string 

%3 // Report path: 13 to 131 character path to report file - e.g. WRCASH.RPT 

tf4 // Print switch; True if print report 

|5 // Display switch: True if display report 

$6 // Report title: 32 character report title - e.g. Cash Accountability 

%1 // Report parms: from 1 to 16 parameters for report 

f8 // 1- Time of day to print report (HHMM) 

j 9 // 2. Repeat code for day to print (bits = 000000000SSFTWTM) 

q0 // 3. From weeks (today +/- days) 

: // 4. To days (today +/- days) - not used 

92 // 5. Amount (two decimal positions implied) 

93 // 6. Number of routes (0 = none, 99 - all) 
<J4 // 7. First route 

^5 // 8. Second route 

<*6 // 9. Third route, etc. 

97 void GenerateS2SA{char *szReportPath, BOOL bPrint, BOOL bDisplay, char *szReportTitle, xnt 

*n Parms) 

^8 { 
<KS 

100 int x, y, z; 

101 int columns; 

102 int. buttons, oldbuttons; 

103 int venderCapacity; 

104 long venderVelocity; // changed from int to long RMC 2/6/96 
|05 int FromDays = -(nParms[2] * 7/* Days per week */ ); 

106 int minThreshold = nParms[4]; 

|07 int maxProducts = nParms[6]; 

f08 int nTmp; 
|09 

110 CHECKHANDLES ( ) ; 
111 

" 112 // . 

|13 // GET TODAY* S DATE, INCLUDING THE DAY OF THE WEEK. 

114 // 
115 

1 16 // Get the dos date. 

|17 struct dosdate_t today; 

|18 _dos_getdate(&today) ; 
119 

/20 // Get it into a BDate also. 

/21 BDate Today; 

/22 BDate Search; 

/23 Today. year = today. year; 

/24 Today. month = today. month; 

/25 Today. day = today. day; 

/26 // make sure FromDays is negative, and MIN_S2SDAYS > FromDays > MAX_S2SDAYS 

\21 FromDays = min (MIN_S2SDAYS, FromDays); 

/28 FromDays - max (MAX_S2SDAYS, FromDays); 

/29 // calculate search date 

130 IncrBDate (Today, FromDays, Search); 

/31 
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132 //Get the dos date, 

133 struct dostime_t now; 

134 _dos_gettime (&now) ; 

135 if (now. hour > 7 && now. hour < 10) 

136 { 

137 // SGG Ask the user if they really want to run the report. 

138 int RunReport = BWCCMes sage Box (Get Focus () , 

139 "Space to Sales analysis will invalidate any load sheets produced earlier today. 
Do you really want to do this now?" , 

140 "VendView Space to Sales Analysis", MB_YESNO | MB_ICONQUESTION) ; 

141 if (RunReport != I DYES) 

142 return ; 
143 

14 4 // ask for the password 

145 int iRoute - 0; 

146 if (VendViewAskUserPasswordDlg(GetWindowPtr {GetActiveWindow ( ) ) , &iRoute) .Executed 
= IDOK) 

147 return ; 

148 } 
149 

150 // Make sure maxProducts is not ridiculously small, or greater than max number of buttO 
ns. 

151 if (maxProducts < 4) 
152- maxProducts = 4; 

155 if (maxProducts > MAX_BUTT0NS12) 

154 maxProducts = MAX_BUTTONS12; 

155 
156 

157 struct 

158 { 

159 int nCode; 

160 char szName[17]; 

161 int nAdds; // additional products required 

162 } stProductName[100] ; 

163 int nProductCount; 
164 

165 int typeorder[3] [10] = {{0, 0, 0, 0, 0, 0, 0, . 0, 0, 0}, 

166 (0, 0, 0, 0, 0, 0, 0, 0, 0, 0}, 

167 (0, 0, 0, 0, 0, 0, 0, 0, 0, 0)}; 

168 int order index ; 

169 int colagraphics; 
170 

171 COLUMNS col[MAX__COLS] ; 

172 

173 BUTTONS button [MAX_BUTTONS12] ; 

174 BUTTONS oldbutton[MAX_BUTTONS12] ; 
175 

176 struct 

177 { 

178 int capacity; 

179 int column; 

180 int assigned; 

181 } orderedCol [MAX_COLS + MAX_BUTTONS12 + MAX_BUTT0NS12 + 1] ; 
182 

183 struct 

184 { 

185 int opt imumCapa city; 

186 int button; 

187 int capacity; 

188 } orderedButton[MAX_BUTT0NS12 + 1] ; 
18 9 

190 char szTable [MAX PATH) ; 

191 BOOL bBlank; // blank field flag 
192 

193 ////////////////////////////////////////////////////////////// 

194 // 
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195 // READ PRODUCTS INTO ARRAY 

196 // 

197 // 

.198 strcpy (szTable, szCommDir) ; 

199 strcat (szTable, szProductTableName) ; 

200 BCursor curProduct (dbDatabase, szTable); 
101 " CHECKCURSOR (&cur Product ) ; 

202 if ( (curProduct .lastError « PXSUCCESS)) 

203 { 

204 stProductName[0) -nCode = 0; 

205 lstrcpy (stProductName [ 0] .szName, "NONE ASSIGNED") ; 

206 nProductCount = 1; 

207 stProductName [0] .nAdds = 0; 

208 curProduct . gotoBegin ( ) ; 

209 do 
1X0 I 

211 curProduct . gotoNext ( ) ; 

2.12 if (curProduct. lastError == PXSUCCESS) 

213 { 

214 curProduct .getRecord () ; // retrieve found record 

215 ASSERT (curProduct. lastError — PXSUCCESS); 

216 BRecord *pRec = curProduct . genericRec; 

217 pRec->getField("Ident", stProductName [nProductCount ] .nCode, bBlank); 

218 • ASSERT (pRec->lastError — PXSUCCESS); 

219 pRec->getField( "Abbreviation", stProductName [nProductCount] . szName, 17, bBl 
ank) ; 

220 ASSERT (pRec->lastError == PXSUCCESS); 
Z21 if (bBlank) 

222 stProductName [nProductCount] .szName [0] = 0; 

223 // get ranking for brand selection on maximizing products 
224 

225 pRec->getField(" Flavor", orderindex, bBlank); 

226 ASSERT (pRec->lastError — PXSUCCESS); 

227 if (bBlank) 

228 orderindex = 0; 

229 if ((orderindex > 0) && (orderindex < 11)) 

230 typeorder[0] [orderindex - 1] = stProductName [nProductCount] . nCode; 

231 pRec->getField( "Standard", orderindex, bBlank); 

232 ASSERT (pRec->lastError == PXSUCCESS); 

233 if (bBlank) 

234 orderindex =0; 

2,35 if ((orderindex > 0) && (orderindex < 11)) 

236 typeorder[l] [orderindex - 1] - stProductName [nProductCount ]. nCode; 

237 pRec->getField("Diet", orderindex, bBlank); 

238 ASSERT (pRec->lastError = PXSUCCESS); 
239. if (bBlank) 

240 orderindex =0; 

241 if ((orderindex > 0) && (orderindex < 11)) 

2.42 typeorder [2] [orderindex - 1] = stProductName [nProductCount] . nCode; 
.24 3 

244 stProductName [nProductCount] .nAdds = 0; 

MS nProductCount++; 

246 } 

247 } while ( curProduct . lastError — PXSUCCESS); 
24 8 curProduct . close () ; 

24 9 } 

250 // 

251 // 

252 // end of 'READ PRODUCTS INTO ARRAY' 

253 // 

254 ////////////////////////////////////////////////////////////// 
255 

256 

i57 ////////////////////////////////////////////////////////////// 

*58 // 

159 // CREATE CURSORS FOR PARADOX DATABASE ACCESS [ 
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260 // 

261 // 
262 

263 // Build facility table cursor. 

264 strcpy (szTable, szCommDir); 

265 strcat (szTable, szFacilityTableName) ; 

266 BCursor curFacility (dbDatabase, szTable); 

267 CHECKCURSOR (&cur Facility ) ; 
268 

269 // Build machine status table cursor. 

270 strcpy (szTable, szCommDir); 

271 strcat (szTable, szMachStatTableName) ; 

272 BCursor curMachStat (dbDatabase, szTable); 

273 CHECKCURSOR ( &curMachStat ) ; 
274 

275 // Build vender load report auxiliary data table cursor. 

276 //This table contains strings needed for vender load report. 

277 // Most of the data in the vender load report is taken from MACHLOAD.DB. 

278 strcpy (szTable, szCommDir); 

279 strcat (szTable, "VND1LOAD. DB") ; 

280 BCursor curVenderLoad (dbDatabase, szTable); 

281 CHECKCURSOR (&curVenderLoad) ; 
282 

283- // Build machine load cursor. 

284 strcpy (szTable, szCommDir); 

285 ' strcat (szTable, "MACHLOAD.DB"); 

286 BCursor curMachLoad (dbDatabase, szTable); 

287 CHECKCURSOR (ScurMachLoad) ; 
288 

289 // Build space to sales load report auxiliary data table cursor. 

290 // This table contains strings needed for space to sales report. 

291 // EMPTY THE TABLE. 

292 EmptyTable ( "SP2SL0AD. DB" ) ; 

293 strcpy (szTable, szCommDir); 

294 strcat (szTable, "SP2SLOAD. DB" ) ; 

295 BCursor curSp2SLoad (dbDatabase, szTable); 

296 CHECKCURSOR ( &curSp2SLoad) ; 
297 

298 // Build space to sales total load cursor. 

299 // EMPTY THE TABLE. 

300 EmptyTable ( "SP2STOTL. DB" ) ; 

301 strcpy (szTable, szCommDir); 

302 strcat (szTable, "SP2STOTL. DB" ) ; 

303 BCursor curSp2STotal (dbDatabase, szTable); 

304 CHECKCURSOR ( &curSp2STotal ) ; 
305 

306 // 

307 // 

308 // end of 'CREATE CURSORS FOR PARADOX DATABASE ACCESS* J 

309 // 

310 ////////////////////////////////////////////////////////////// 
311 

312 

313 ////////////////////////////////////////////////////////////// 

3 1 4 ////////////////////////////////////////////////////////////// 

315 // 

316 // 

317 // generate space to sales print records 

318 // 
319 

320 
321 

311 if ( curFacility.lastError == PXSUCCESS 

323 && curMachStat. lastError «» PXSUCCESS 

324 && curVenderLoad. lastError == PXSUCCESS 

325 && curMachLoad. lastError = PXSUCCESS 
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J26 curSp2SLoad.lastError == PXSUCCESS 

J27 && curSp2STotal.lastError = PXSUCCESS) 
J28 { 

329 FIELDNUMBER fid; 

330 BOOL blank; 

331 BDate bdate; 

332 int nRepnum; 

J 33 int nextRoute; 

334 int ident; 

J35 int facilldent; 

J36 int routeldent - 0; 

337 

338 BRecord *machstatRec = curMachStat .genericRec; 

339 BRecord *facilRec = cur Facility .genericRec; 

34 0 BRecord *vndloadRec = curVenderLoad. genericRec; 

341 BRecord *machloadRec = curMachLoad. genericRec; 

342 BRecord *s2sloadRec = curSp2SLoad. genericRec; 

343 BRecord *totalRec = curSp2STotal - genericRec ; 
34 4 

345 //fill column and button arrays 
34 6 

34 7- curVenderLoad. gotoBegin( ) ; 

34 8 curVenderLoad . gotoNext ( ) ; 

349 • ' while (curVenderLoad. last Error == PXSUCCESS) 

350 . { . 

35 1 curVenderLoad. get Record (vndloadRec) ; 

352 ASSERT (curVenderLoad. las tError — • PXSUCCESS); 
353 

354 // find ma ch stat record 

355 vndloadRec->getField( "Vender ident", ident, blank); 

356 ASSERT (vndloadRec->lastError — PXSUCCESS); 

357 if (blank) 
>58 ident = 0; 

£59 machstatRec->putField ("Ident", ident); 

^60 curMachStat . searchlndex (machstatRec, pxSearchFirst, 1) ; 

361 if (curMachStat. lastError = PXSUCCESS) 

362 { 

363 curMachStat . getRecord (machstatRec) ; 
364 

365 // Skip if non-radio vender. 

366 machstatRec->getField("No radio", nTmp, blank); 

367 ASSERT (machstatRec->lastError == PXSUCCESS); 

368 if (blank) 
£69 nTmp = 0; 

370 if (nTmp) 

371 { 

372 * curVenderLoad. gotoNext () ; 

373 continue ; 

374 } 

376 // Update Velocity for Machstat; skip vender if configuration of vender has 
changed recently. 

377 if ( !CalculateVelocityForVender (machstatRec, Today, Search)) 

378 { 

^7 9 curVenderLoad . gotoNext ( ) ; 

380 continue ; 

381 } 

382 // find facility record 

383 machstatRec->getField( "Facility Ident", facilldent, blank); 

384 ASSERT (machstatRec-MastError — PXSUCCESS); 
J85 if (blank) 

386 facilldent = 0; 

387 facilRec->putField( "Ident", facilldent) ; 

388 curFacility.searchIndex(facilRec, pxSearchFirst, 1); 
£89 if (curFacility. lastError == PXSUCCESS) 

390 i 
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391 curFacility . getRecord ( f acilRec) ; 
392 

393 // check for route change 

394 facilRec->getField( "Route Ident", nextRoute, blank); 

395 if (blank) 

396 nextRoute = 0; 

397 if ( (routeldent) && (routeldent != nextRoute)) // change in routes 

398 < 

399 // write total load records 

4 00 // write out total additions for space to sales 

401 for (x = 0; x < nProductCount ; x++) 

402 { 

403 if ( StProductName [x] .nAdds > 0) 

404 { 

405 totalRec->putField( "Route", routeldent) ; 

406 totalRec->putField( "Product code", stProductName [x] . nCode) ; 

407 totalRec->putField( "Product name", stProductName [x] . szName) 

408 ' totalRec->putField ("Count", stProductName [x] .nAdds) ; 

409 curSp2STotal.appendRec(totalRec) ; 

410 // reset count 

411 stProductName (x) .nAdds = 0; 

412 } 
413- > 

414 

415 ) 

416 routeldent = nextRoute; 
417 

418 columns = 0; 

419 buttons = 0; 

420 venderCapacity = 0; 

421 venderVelocity = 0; 
422 

423 // Init col and button arrays. 

424 for (x = 0; x < MAX_COLS; x++) 

425 { 

426 col [x] . capacity = 0; 

427 col [x] . assigned = 0; 

428 col [x] . newAssignment = 0; 

429 } 

430 for (x « 0; x < MAX_BUTT0NS12 ; x++) 

431 { 

432 button [x] .code = 0; 

433 button [x] .removed = 0; 

434 button [x] .product [0] = 0; 

435 button [x] . capacity = 0; 

436 button [x] .velocity = 0; 

437 button {x] .optimumCapa city = 0; 

438 button [x] .newCapacity = 0; 

439 ) 
440 

441 // Get product codes. 

442 fid = machstatRec->getFieldNumber ("Product 1 code"); 

443 if (machstatRec->lastError == 0) 

444 { 

445 for (x = 0; x < MAX_BUTTONS 12; x++) 

446 { , i% 

447 machstatRec->getField(fld + x, button [x] . code, blank); 

448 

449 if ( (machstatRec-MastError) II (blank)) 

450 button [x] .code « 0; 

451 if (button [x] .code) 
ASL buttons = x :+ 1; 

453 ) 

454 } 
455 
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456 // Get product names. 

A51 for (x = 0; x < buttons; x++) 

458 { 

459 for (y = 0; y < nProductCount ; y++) 

460 ( 

461 if (button [x) .code == st Product Name [y] . nCode) 

462 break ; 

463 ) 

464 if (y >- nProductCount) 

465 y = 0; // reset to no name 

466 strcpy(button[x] .product, s t Product Name [y] . szName) ; 

467 ) 
468 

469 // Get column capacities . 

470 fid = machstatRec->getFieldNumber ("Column 1 capacity"); 

471 if (machstatRec-MastError = 0) 

472 { 

4-73 for (x = 0; x < MAX_C0LS; x++) 

474 { 

475 machstatRec->get Field (fid + x, col [x] . capacity, blank); 
476 

4177 if ((machstatRec-MastError) II (blank)) 

478 col [x] .capacity = 0; 

479 if (col [x] .capacity) 

480 { 

481 columns - x + 1; 

482 venderCapacity += col [x] . capacity; 

483 // fail in ordered array 

484 orderedCol [x] .capacity = col [x] .capacity; 

485 orderedCol [x] . column = x + 1; // column no. 

486 orderedCol [x] .assigned « 0; 

487 } 

488 } 

489 } 
490 

491 // Get column assignments and button capacities, 

492 fid = machstatRec->getFieldNumber ("Column 1 assigned"); 

493 if (machstatRec->lastError == 0) 

494 { 

495 for (x = 0; x < columns; x++) 

496 i 

497 machstatRec->getField(fld + x, col [xj . assigned, blank); 
498 

499 if ( (machstatRec->lastError) | I (blank) ) 

300 col [x] .assigned = 0; 

501 

£02 col [x] .newAssignment - col [x] . assigned; 

503 

$04 // if assignment is valid, add to button capacity 

505 if ( (col [x] .assigned > 0) && (col [x] . assigned buttons)) 

506 { 

$07 button [col [x] .assigned - 1]. capacity +*= col [x] . capacity; 

£08 button [col [x] .assigned - 1] .newCapacity += col [x] . capacity; 

£09 // fill in ordered col array 

510 orderedCol [x] .assigned = col [xj .assigned; 

511 } 
512 

513 ) 

514 } 

515 fid = machstatRec->getFieldNumber ("Product 1 velocity"); 
^$16 if (machstatRec->lastError — 0) 

51 7 ( 

3l6 for (x = 0; x < buttons; x++) 

519 { 

520 machstatRec->getField(fld + x, button [x] . velocity, blank); 
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522 
523 
524 
525 
526 
527 
528 
529 
530 
5il 
532 
533 
534 
535 
536 
537 
538 
539 
540 
541 
542 
543 
544 
54£ 
546 
547 

548 

549 
550 
551 
552 
553 
554 
555 
556 
557 
558 
559 
560 
561 
562 
563 
564 
565 
566 
567 
568 
569 
570 
571 
572 

573 
574 
575 
576 
577 
578 
579 
580 
5*1 
582 
583 
584 



min products . 
ands) RMC 2/6/96 



if ( (machstatRec->lastError) I I (blank)) 

button [xj .velocity - 0; 
venderVelocity += button [x] .velocity; 
// adjust dual assignments 
if ((x) && (button [x] .code) 

(button [x] .code == button[x - l].code) && 

(button [x - 1]. capacity == 0)) 

{ 

button [x] .velocity += button (x - 1]. velocity; 
button[x - 1]. velocity = 0; 

} 



f 



// Save a copy of the original button configuration. 

for (x = 0; x < buttons; x++) 
{ 

oldbuttonfxj .code = button [x] .code; 
strcpy (oldbutton[x] .product, button[x] .product) ; 
oidbutton(x] .capacity = button (x] . capacity; 
oldbuttonfxj .velocity = button [x] . velocity; 

) 

oldbuttons = buttons; 

// Check for candidate vender where number of products is greater than 

// Get range of sales for setting maxProducts (number of recommended bX 

int products = 0; 

for (x = 0; x < buttons; x++) 
if (button [x] .capacity > 0) 
products++; 

// veJocity total is per day (365 * 6.58 = -100 cases per year) 

maxProducts = 5; // minimum maximum — < 100 =5 
if (venderVelocity > 658) // 100 - 200 = 6 

max Products ++ ; 
if (venderVelocity > 1315) // 200 - 300 = 7 

maxProducts++ ; 
if (venderVelocity > 1973) // > 300 =8 

maxProducts++ ; 

while (products > (maxProducts - 1)) 



{ 



// check for product velocity below threshold 

// get minimum product with minimum velocity 

int minVelocity = 9999; 

int productWithMin; 

for (x = 0; x < buttons; x++) 

if (button [x] .capacity > 0 && button [x] . velocity <= minVelocity 



( 



minVelocity = button [x] . velocity; 
productWithMin = x; 



} 



if (minVelocity < minThreshold) 
{ 

venderVelocity -= button [productWithMin] . velocity; 
// Get count of buttons in group to be removed. 

for (int nCountOfGroup=l; nCountOfGroup<=productWithMin; nCount 
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585 

586 
587 
588 
589 

590 

591 

5*92 
593 
£94 

595 
596 
597 
598 
599 
£>00 
601 
fr02 
603 

604 

£05 
£06 
£07 

£08 
£09 
£10 

£ 

£13 
£14 
615 
fcL6 
&11 
£l8 
£19 
£20 

£22 
623 
£24 
£25 
£26 

bni 

£28 
629 
630 
£31 
632 
£33 
£34 
£35 
636 
637 
638 
L39 
>40 
£41 
£42 
643 



CfGrcup++) 
roductWithMin] .code 



assigned to 



if ( 



button [productWithMin-nCountOf Group] . code != button [p 



gned = In- 



capacity; 



assigned = x-nCountOf Group+1 ; 



II button [productWithMin-nCountOfGroup] . capacity > 0) 
break ; 

// Give the group's columns to button 1. All columns should be 
// the last button in the group. 

button [0] . newCapacity += button (productWithMin] . newCapacity; 
for (x=0; x<columns; x++) 

if (col [x] .assigned == productWithMin + 1) 

orderedCol [x] .assigned = col [x] . newAssignment = collx].assi 



// Shift the remaining buttons below the group up. 
for (x = productWithMin + 1; x < buttons; x++) 
{ 

button [x-nCountOf Group] .code = button [x] . code; 
strcpy (button [x-nCountOf Group] .product, button [x] .product) ; 
button [x-nCountOf Group] .capacity = button [xj . capacity; 
button [x-nCountOf Group] .velocity = button [x] . velocity; 
button [x-nCountOf Group] . optimumCapacity = button [x] . optimum 

button [x-nCountOf Group] .newCapacity = button [x] . newCapacity 

for (y=0; y<columns; y++) 

if (col [y] .assigned =« x + 1) 

orderedCol [y] .assigned = col [y] .newAssignment = col[y]. 



} 



// Empty the last nCountOf Group buttons. 

for (x=buttons-nCountOfGroup;x<buttons;x++) 

{ 

button [x] . code = 0; 
button [x] .product [0]v= 0; 
button [x] .capacity = 0; 
button [xj .velocity = 0; 
button [x] .optimumCapacity = 0; 
button [x] .newCapacity = 0; 

} 

// Reduce the number of buttons by nCountOf Group. 
buttons — nCountOf Groups- 
products — ; 

} 

else 

break. ; 

} 

int baseset = (maxProducts +3) / 2; // 4 or 5 

// recommended product list (from typeorder -code: flag) 

int productlist [10] [2] ; 

// checJt for too few products and add from standard list 
if (products < maxProducts) // need to add products 
{ 

// what kind is this vender? flavor, standard, or diet 
// get top 4 selling products from this vender 
// save brand and velocity for top selling four 
int topseller[4] [2] = {{0, 0), {0, 0), {0, 0}, {0, 0}}; 
for (x = 0; x < products; x++) 
{ 

if (button [x] .velocity > topseller [0] [ 1] ) 
{ 
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644 topseller[3] [0] = topseller [2](0) ; 

645 topseller [3) [1) = topseller [2] [1] ; 

646 topseller [2] [0] = topseller ( 1] [0] ; 

647 topseller [2} [1] = topseller [1] [ 1) ; 

648 topseller [1] [0) = topseller [0] [0] ; 

649 topseller(l) [1] = topseller [0)[1] ; 

550 topseller [0] [0] = button [x] . code; 

551 topseller [0] [1] « button (x) .velocity; 

552 } 

653 else if (button(x) .velocity > topseller [1] [1] ) 

654 { 

655 topseller [3J [0] = topseller [2] [0] ; 

656 topseller [3] [1] = topseller [2] [ 1] ; 

657 topseller [2] [0] = topseller [1] [0] ; 

658 topseller [2] (1) = topseller [ 1] [ 1 ] ; 

659 topsellertl] [0] = button [x] . code; 

660 topseller[l] [1] = button [x] . velocity; 

661 } 

662 else if (button [x] . velocity > topseller [2] [1] ) 

663 { 

664 topseller[3] [0] = topseller [2] [0} ; 

665 topseller [3] [1] = topseller [2] [ 1] ; 

666 topseller [2] [0] = button [x] . code; 
667- topseller [2] [1] = button [x] .velocity; 

668 } 

669 else if (button [ x] . velocity > topseller [3] [1] ) 

670 { 

671 topseller [3] [0] - button [x] . code; 

672 topseller [3] [13 = button [x] .velocity; - 

673 ) 

674 ) 

675 //which type matches closest using typeorder 

676 int typescore[3] = (0, 0, 0); 

677 // score each type 

678 for (x = 0; x < 3; x++) 

679 . { 

680 // score each top seller within type 

681 for (y =0; y < 4; y++) 

682 { 

683 // score for each brand / rank for top seller within type 

684 for (2 = 0; z < 4; z++) 

685 { 

686 if (topseller [y] [0] typeorder [x3 I z] ) 

687 typescore[x3 += (4 - y) * (4 - z) ; 

688 ) 

689 ) 

690 } 

691 // pick winner 

692 colagraphics = 0; 

693 if (typescore[l] > 0) 

694 { 

695 colagraphics = 1; // preset to standard 

696 if ( (typescore[0] > typescore [1] ) && (typescore [03 > typescore 
2])) ' 

697 colagraphics = 0; 

698 if ( (typescore [23 > typescore [ 1] ) && (typescore [23 > typescore 
0])) 

699 colagraphics = 2; 
700 

701 // set suggested product list/ flag unusable codes 

702 for (x = 0; x < 10; x++) 

703 { 

704 productlist [xj [03 = typeorder [colagraphics] [x3 ; 

705 // enter initial velocity 

706 productlist [x] [1] = venderVelocity / (x + 5) ; 
707 
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•708 // check if used 

709 for (y = 0; y < oldbuttons; y++) 

710 { 

711 if (oldbutton[y) .code = productlist (x) [0] ) 

712 { 

713 // mark out all previously used products 

714 // check if just removed 

715 for (z = 0; z < buttons; z++) 

716 { 

717 if (button [z] .code productlist (xl [0] ) 

718 break; 

719 } 

720 if (z == buttons) 

721 productlist [xj [1] = -2; // used but dropped flag 

722 else 

723 productlist [x] [1] = -1; // used flag 

724 break ; 

725 } 

726 ) 

727 } 

728 } 

729 } 
730 

731 • //if too few products, add preferred brands 

732 if (colagraphics) 

733 { 

734 while ((products < maxProducts) && (buttons < MAX_BUTT0NS12) ) 

735 { 

736 int newproduct[2] = {0, 0}; // code;velocity 

737 int newproduct index - 0; 
738 

739 // find suggested brand 

740 for (x = 0; x < maxProducts; x++) 

741 { 

742 // scan suggested list for available products 

743 if (productlist [x] [1] > 0) 

744 { 

745 newproduct [0] = productlist [x] [03 ; 

746 newproduct [ 1 ] = productlist [x] [ 1} ; 

747 newproduct index = x; 
74 8 

749 // break out if basic product 

750 if (x < baseset) 

751 break; 

752 } 

753 else // flag is -1 (used) or -2 (dropped) 

754 { 

755 //if there is a suggested product and it replaces 

756 //a dropped product, use it 

757 if ( (newproduct [0] ) && (productlist [x] [1] =~-2)) 

758 break ; 

759 } 

760 } 

761 // exit sentinel — break if no new products 

762 if (newproduct [0] — 0) 

763 break ; 
' 764 else 

765 { 

-766 productlist [newproductindex] [1] = "3; // using suggestion 

767 } 

768 

769 // fill in new product 

770 button [buttons 3 .code = newproduct [0) ; 

771 // find product name 
772 

773 for (x - 0; x < nProductCount ; x++) 
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774 t 

775 if (stProductName(x) .nCode — newproduct [0] ) 

776 break; 

777 ) 

778 if (x >= nProductCount) 

779 x - 0; 

780 strcpy (button [buttons) .product, stProductName [x] . szName) ; 

781 button [buttons] . capacity - 1; // mark as not dually assignei 
782. button (buttons] .velocity == newproduct [ 1] ; 

7Q3 venderVelocity += newproduct [ 1] ; 

784 button [buttons] .opt imumCapacity = 0; 

785 button [buttons++J . newCapacity = 0; 
78 6 products++; 

787 } 

788 } 
789 

7 90 // calculate optimum capacity 

791 for (x = 0; x < buttons; x++) 

792 { 

793 long opt = 0L; 

794 if (button [x] .capacity > 0) // not dual assigned,^ 

795 { 

796 opt = button [x] .velocity; 
797* opt *- venderCapacity; 
796 if (venderVelocity > 0) 

799 opt /- venderVelocity; 

800 else 

801 opt = 1; 

802 if (opt <= 0) 

803 opt - 1L; 

804 ) 

805 button [x] . opt imumCapacity = (int) opt; 

806 orderedButton [x] .opt imumCapacity = (int) opt; 

807 orderedButton [x] .button = x + 1; // button no. 

808 orderedButton [x] .capacity = 0; 

809 } 

810 // order button array 

811 for (x = buttons - 1; x > 0; x — ) 

812 { 

813 for (y = 0; y < x; y++) 

814 ( 

815 if (orderedButton [y] . opt imumCapacity > orderedButton [y +.l].opt 
imumCapacity) 

816 { 

817 // swap high for low 

8ifc orderedButton [MAX_BUTT0NS12] == orderedButton [y] ; 

819 orderedButton [y] = orderedButton [y + 1); 

820 orderedButton [y + 1] - orderedButton [MAX_BUTTONS12] ; 

821 } 

822 } 

823 } 
824 

825 // add two dummy columns with zero capacity for each button 

826 for (x =0; x < buttons; x++) 

827 { 

828 orderedCol [columns] .capacity = 0; 

829 orderedCol [columns j . column = 0; 

830 orderedCol [columns++] .assigned = x + 1; 

831 orderedCol [columns] .capacity == 0; 

832 orderedCol [columns] .column = 0; 

833 orderedCol [columns++] .assigned = x + 1; 

834 } 
835 

836 // order column array 

837 for (x = columns - 1; x > 0; x — ) 

838 { 
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339 
$40 

m 

*42 

V4 4 

$45 
*46 

«47 
?48 
*49 
*50 
*51 
152 
¥53 
S54 
155 
156 
S57 
$58 
*59 
$60 
S61 
*62 
V63 
£64 
&65 
166 
*67 
?68 
169 

VO 
171 
?72 
f73 
P4 
Y75 
?76 
*77 
S78 
17 9 
180 
181 
182 
583 

984 
*85 
*86 
187 
?88 
?8 9 
?90 
191 
% 92 

193 

194 
*9S 
?96 

?97 



redCol [y] ; 

.AX BUTTONS 12] , 



.capacity; 



reached 



for (y = 0; y < x; y++) 

if (orderedColfy] .capacity > orderedColfy + 1] . capacity) 
{ 

// swap high for low 

orderedCol [MAX_COLS + MAX_BUTT0NS12 + MAX_BUTTONS12 ] 



orde 



orderedCol [y] = orderedColfy + 1] ; 

orderedCol[y + 1) - orderedCol [MAX_COLS + MAX_BUTTONS12 + M 



> 

//get initial fit with old assignments 
long fit = EvaluateFit (button, buttons); 
long savefit = fit; 

// initial new assignments 
y = buttons - 1; 

for (x = columns - 1; x >= 0; x — ) 
{ 

// if button is Dually Assigned with following button (s) , skip it. 
if (button [y] . optimumCapacity == 0) 

x++; 
else 



{ 



// unassign original , reassign 

int asn = orderedCol [x] . assigned; 

orderedCol [x] .assigned = y + 1; // new button assignment 
col [orderedCol [x] .column - 1] . newAssignment = y + 1; 
// adjust capacities 

button [orderedCol [x] .assigned - 1] .newCapacity += orderedCol [x] 
button[asn - 1} . newCapacity -= orderedCol [x] . capacity; 

} 

// Move back one button/ wrap\when needed. 

y— ; 

if (y < 0) 

y = buttons - 1; 

} 

// swap routine 

// swap each column with all others from smallest to largest 
savefit = EvaluateFit (button, buttons); 
for (z = 0; z < 10; z++) 

long keepfit = savefit; // check in loop if optimization has been 



columns 



1; x > 0; x — ) 



ity > 0 
ity > 0) 

rderedCol[x] .capacity; 



for (x 

< 

for (y = x - 1; y >= 0; y — ) 
{ 

// swap capacities if different 

if (orderedCol [x] .capacity != orderedCol [y] . capacity) 
{ 

// if neither button is dually assigned 

if ( button [orderedCol [x] .assigned - 1 ] . opt imumCapao 
&& button [orderedCol [y] .assigned - 1] . optimumCapac 



// okay they are different, now swap and evaluate 
button [orderedCol [x] .assigned - 1 ]. newCapacity — o 

button [orderedCol [x] .assigned - 1] .newCapacity +« o 
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898 

899 

900 
90 1 
9<U 
903 
904 



rderedCcKyl .capacity; 
rderedCol [x] .capacity; 
rderedCol [y] . capacity; 



905 

906 
907 
908 
909 
910 
911 

91? 
913 

914 

915 
916 
917 
918 

919 

920 

921 

922 
923 
924 
925 
926 
927 
928 
926 
930 
931 
932 
933 
934 
935 
936 
937 
938 
939 
940 
941 
942 
94 3 
944 
94.5 
946 
947 
948 
949 
950 
951 



acity > 0 
acity > 0) 



rderedCol [x] .assigned; 
rderedCol [y] .assigned; 

orderedCol [x] .capacity ; 
-= orderedCol [y 3 .capacity; 

orderedCol [x] .capacity; 
+= orderedCol [y] .capacity; 



if (savefit 
break ; 



button [orderedCol [y] .assigned - 1] .newCapacity +« o 

button [orderedCol (y] .assigned - 1] .newCapacity -= o 

long tryfit = EvaluateFit (button, buttons); 

// make sure buttons have some capacity after trade. 
if ( tryfit < savefit 

&& button [orderedCol [x] .assigned - 1) .newCap 

&& button [orderedCol [y] . assigned - 1] .newCap 



savefit = tryfit; 
// adjust records 

int asn = orderedCol [x] . assigned; 

orderedCol [x] .assigned = orderedCol [y] .assigned 

orderedCol [y] . assigned = asn; 

col [orderedCol [x] .column - 1] . newAssignment = O 
col [orderedCol [y] .column - 1] . newAssignment = 0 

} 

else // set capacities back to original setting 



{ 



button [orderedCol [x] .assigned 
button [orderedCol [x] .assigned 
button [orderedCol [y] .assigned 
button [orderedCol [y] .assigned 



1 ] . newCapacity 
1] .newCapacity 
1] .newCapacity 
1] .newCapacity 



keepfit) // no change in value 



) 



columns -= (2 * buttons); // subtract out dummy columns count 

// attempt to keep original column assignments if equal capacity 
for (x « 0; x < columns; x++) 

// if column x has moved to a different button 
if (col [x] .assigned ! col [x] . newAssignment ) 

// Look for a column y with same capacity as column x 
// now assigned to column x's original button, 
// and not originally assigned to that same button. 
for" (y = 0; y < columns; y++) 
if ( x != y 

&& col [xj .capacity col [y] . capacity 
&& col [x] . assigned — col [y] . newAssignment 
&& col [y] . assigned != col [y] . newAssignment ) 



{ 



// Swap columns x and y. 

col [y] .newAssignment = col [x] . newAssignment ; 
col [x) .newAssignment = col [x] . assigned; 



// calculate effectiveness 
long origService = 10000L; 




MNDVSTOS.CPP Ma y 1996 Pa 9 e 16 

952 long newService = 10000L; 

953 long workService; 
954 

<)55 for (x = 0; x < buttons; x++) 

<>56 { 

957 if ( (button [x] .velocity > 20) && (button [x] . capacity > 1)) 

658 [ 

959 workService «= button [x] . capacity; 

960 workService *- 10000; 

961 workService /= button [x] . velocity ; 
<^62 if (workService < origService) 
<J63 origService = workService; 

964 

965 workService = button [x] .newCapacity; 

966 workService *= 10000; 

<J67 workService /= button [x] . velocity; 

968 if (workService < newService) 

969 newService = workService; 

970 ) 

971 ) 
^72 

973 // Put removed products back in. 

974 for (x = 0; x < oldbuttons; x++) 

375 if (button [x] .code ! = oldbutton [x] . code) 

<)76 { 

977 for (y = buttons; y > x; y — ) 

<*78 { 

979 button [y] . code = button [y-1] . code; 

980 strcpy (button [y] .product, button [y-1] .product) ; 

981 button [y] .velocity = button [y-1] . velocity; 

982 button [y] .capacity = button [y-1] . capacity; 

983 button [y] . optimumCapacity = button [y-1] . optimumCapacity; 

984 button [y] .newCapacity = button [y-1] . newCapacity; 

985 } 

986 buttons++; 

987 button [x] .code - oldbutton t x] . code; 

988 button [x] . removed = -1; 

<^89 strcpy (button [x] .product, oldbutton[x] .product) ; 

990 button [x] .velocity = oldbutton [x] .velocity ; 

<)91 button [x] .capacity = oldbutton [x] . capacity; 

992 button [xj .optimumCapacity = 0; 

993 button [x] .newCapacity = 0; 

994 ) 
995 

996 /* 

497 ASSERT (buttons == oldbuttons); 

998 for (x = 0; x < oldbuttons; x++) 

. 999 { 

J 000 ASSERT (button [x J . code == oldbutton (x) . code) ; 

' (001 ASSERT (button [x J . velocity oldbutton [x] .velocity) ; 

J002 ASSERT (button fx) .capacity == oldbutton [x] .capacity) ; 

(003 ; 

|004 */ 

/005 // write out results 

/006 if (((origService < 400) && (newService > (origService + 100))) II 

/007 {(origService < 700) && (newService > (origService + 300))) II 

/008 (newService > (origService + 800))) 

1009 { 

/010 vndloadRec->getField( "Report number", nRepnum, blank); 

/Oil if (blank) 

1 0X1 nRepnum = 0; 

/013 

J014 machloadRec->putField ( "Report number", nRepnum); 

(015 curMachLoad.searchIndex(machloadRec, pxSearchFirst, 1); 

/016 if (curMachLoad. last Error «== PXSUCCESS) 

/017 { 
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1018 
1019 
1020 
1021 
1022 
1023 

1024 

1025 

1026 

1027 

1028 
1029 

1030 

1031 

103i 

1033 

1034 

1035 

1036 
1037 
1038 
1039 
1040 
1041 
1042 
1043 
1044 
1045 
1046 
1047 
1048 
1049 
1050 
1051 
1052 
1053 
1054 
1055 
1056 
1057 
1058 
1059 
1060 
1061 
1062 
1063 
1064 
1065 
1066 

1067 
1068 

1069 



1 estimated" ) ; 

1 s2s"); 

1 code s2s") ; 
n 1 assigned s2s"); 
n 1 assigned s2s"); 

uct 1 button list") ; 
uct 1 column list") ; 
uct 1 velocity"); 
uct 1 capacity est"); 
uct 1 capacity opt"); 
uct 1 capacity s2s"); 
uct 1 name " ) ; 



curMachLoad. getRecord (machloadRec) ; 

ASSERT (curMachLoad. lastError PXSOCCESS) ; 

char szWork(33]; 

FIELDNUMBER fillEstField = machloadRec->getFieldNumber ( ■ Produci 
FIELDNUMBER fillS2sField = machloadRec->getFieldNumber (" Product 
FIELDNUMBER codeS2sField = machloadRec- >getFieldNumber ( "Product 
FIELDNUMBER buttonS2sField = machloadRec->getFieldNumber ( "Butto 
FIELDNUMBER columnS2sField = machloadRec->getFieldNumber ( "Coluift 



FIELDNUMBER 
FIELDNUMBER 
FIELDNUMBER 
FIELDNUMBER 
FIELDNUMBER 
FIELDNUMBER 
FIELDNUMBER 



buttonList Field 
columnList Field 
velocityField 
capacityEst Field 
capacityOpt Field 
capacitys2sField 
productnameField 



s2sloadRec->getFieldNumber ( "Proi 
s2sloadRec->getFieldNumber { "Pro^ 
s2sloadRec->getFieldNumber ("Proi, 
s2sloadRec->getFieldNumber ( "Proi 
s2sloadRec->getFieldN umber ("Profc 
s2sloadRec->getFieldNumber ( "Prod 
s2sloadRec->getFieldNumber ("Proi 



t); 



11 amounts . 



s2sloadRec->putField( "Vender ident", ident); 
s2sloadRec->putField( "Delivery date", bdate) ; 
s2sloadRec->putField{ "Report number", nRepnum) ; 

// Init all array fields dn machload record to blank. 
for (x « 0; x < MAX_BUTTONS; x++) 
{ 

machloadRec->setNull (fillS2sField + x) ; 
machloadRec->setNull (codeS2sField + x) ; 
machloadRec->setNull (buttonS2sField + x) ; 

} 

for (x = 0; x < MAX_COLS; x++) 

machloadRec->setNull(columnS2sField + x) ; 

// Jnit all array fields in sp2sload record to blank. 
for (x = 0; x < MAX_BUTTONS; x++) 
{ 

s2sloadRec->setNull (buttonListField + x) ; 
s2sloadRec->setNull (productnameField + x) ; 
s2sloadRec->setNull (columnList Field + x) ; 
s2sloadRec->setNull (velocityField + x) ; 
s2sloadRec->setNull (capacityEstField + x) ; 
s2sloadRec->setNull (capacityOptField + x) ; 
s2sloadRec->setNull (capacitys2sField + x) ; 



// Write s2s column assignments to machload record. 
for (x = 0; x < MAX_COLS; x++) 

machloadRec->putField(columnS2sField + x, col [x] . newAssignmett 

// Calc delta capacities , get est fill amounts r and calc s2s fx 
int nDifffMAX BUTTONS12] ; 
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J070 int nUnroundedS2sFill[MAX_BUTTONS12] ; 

/071 int nProductCounter «= 0; 

/072 for (x = 0; x < buttons; x++) 

1073 { 

/074 

/075 // only for last button of each product 

/076 if (button [x] .capacity > 0) 

/077 { 

/076 // Calculate delta capacity and save in delta fill arra 

y nDiff. 

/079 if (button [x] .capacity == 1) 

/080 nDiff [nProductCounter] = button [x] . newCapacity; 

/081 else 

1082 nDiff [nProductCounter] « button [x] . newCapacity - butt 

on[x] .capacity; 

/083 

/084 // S2s fill = est fill + delta capacity. 

/085 machloadRec->getField(fillEstField + nProductCounter, n 

UnroundedS2sFill [nProductCounter] , blank) ; 
/086 if (blank) 

/087. nUnroundedS2sFill [nProductCounter] = 0; 

/088 nUnroundedS2sFill [nProductCounter] += nDiff [nProductCou 

nter] ; 

f089 nProductCounter++; 
/090 } 
/091 } 
/092 

1093 // Round non-negative fill amounts down to nearest whole 6-pack 

/094 // Note that x here iterates over products, not buttons! 

/095 int nS2sFill[MAX_BUTTONS12]; 

/096 int nTotalNonNegFill = 0; 

/097 for (x = 0; x < nProductCounter; x++) 

/098 if (nUnroundedS2sFill[x] > 0) 

(099 { 

/100 // Round down to nearest multiple of 6. Result will be >- 

0. 

1101 nS2sFill[x] = nUnroundedS2sFill [x] / 6 * 6; 

/102 // Add rounded-off fill to total of non-negative fills. 

/ 103 nTotalNonNegFill += nS2sFill[x]; 

/104 } 

/105 else 

/106 nS2sFill[x] « nUnroundedS2sFill [x] ; 

Q07 

|106 // Decrement 2s2 non-neg fills by 6 until we have even cases on 

trip from truck to vender. 

/1 09 // Note that x here iterates over products, not buttons! 

/HO // 

/HI // Dependencies on variables set outside this while loop: 

/H2 // (dl) Any positive values in the first nProductCounter eleme 

nts of array nS2sFill must be multiples of 6. 

[113 // (d2) nTotalNonNegFill must contain the sum of those positiv 

e values referred to in (1) . 

/114 // Proof that while loop will halt: 

|115 // (1) By observation of while loop conditional expression, th 
e while loop halts when 

fll6 // nTotalNonNegFill is a multiple of 24 between iterations 

1117 // (2) We know that zero is a multiple of 6 and of 24. 

/H8 // (3) By (d2) , nTotalNonNegFill is the sum of all nS2sFill > 
zero. 

1119 // (4) By (3), nTotalNonNegFill is always >= zero. 

1120 // (5) By (1) and (2), when nTotalNonNegFill is zero between i 
terations , while loop will halt. 

J121 // (6) By (3), when nTotalNonNegFill > zero, there is at least 



one nS2sFill > 0. 
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// (7) By (4), (5) and (6), between iterations, either the who 
le loop will halt or it will enter the 

1123 // next iteration guaranteed to have at least one nS2sFill 
> 0. 

1124 // (8) By (dl) , all nS2sFill > zero were rounded down to near* 
st multiples of 6. 

1125 // (9) We know that the sum of multiples of an integer is a mu 
Itiple of that integer. 

\1Ub // (a) By (3), (8) and (9), nTotalNonNegFill is always a multi 

pie of 6. 

1127 // (b) By (6) and observation of code in body of while loop, j\ 
TotalNonNegFill must be decremented 

1128 // at least once in each iteration of the while loop. 

1129 // (c) We know that every 4th multiple of 6 is a multiple of . 
4, so it takes at most 3 iterations 

1130 



1131 

1132 

1133 

1154 

1135 

1136 
1137 
1138 

1139 
1140 
1141 
1142 
1143 
1144 
1145 
1146 
1147 
1148 
1149 
1150 
1151 
115£ 
1153 

1154 
1155 
1156 
1157 
1158 
1159 
1160 
1161 

1162 

1163 
1164 

1X65 

1166 
1167 



tracting 6 each iteration . 
ader, 

last iteration of the 
enting nTotalNonhlegFill , 
the while loop, 
t 3 iterations . 



up into vacated buttons 



signed ' . 

ter, nProductCounter+1 ) 



oduct . 



to go from any multiple of 6 to a multiple of 24 by sub 

(d) By observation of conditional expression in for loop he 
if nTotalNonNegFill reaches a multiple of 24 before the 
for loop, the for loop will exit without further decrem. 
allowing the while loop conditional expression to halt 

(e) By (b) , (c) and (d) , the while loop must halt in at most 



// 
// 
// 
// 
// 
// 
// 

while (nTotalNonNegFill % 24) 

for {x - 0; x < nProductCounter && nTotalNonNegFill % 24; x+* 

if <nS2sFill[x] > 0) 



{ 



// Decrement both nS2sFill and nTotalNonNegFill . 
nS2sFill[x] — 6; 
nTotalNonNegFill -= 6; 

} 

// Decrease nDiffs by decreases in fills due to rounding. 
// Note that x here iterates over products, not buttons! 
for (x = 0; x < nProductCounter; x++) 

nDifffx] -= nUnroundedS2sFill[x] - nS2sFill [x] ; 

// Write various data for buttons and products. 
nProductCounter = 0; 

int nVacatedButtonCounter - 0; // counter for shifting product 

int oldMinDays = 327 67; 
int newMinDays = 327 67; 
for (x = 0; x < buttons; x++) 
{ 

// if button not being vacated 
if ( i button [x] . removed) 

// Write the 'product number' to which this button is 'as 

machloadRec->putField(buttonS2sField+x-nVacatedButtonCoua 

// Write product values out only for last button of each pr 

if (button [x] . capacity > 0) 
{ 

// Save positive additional capacities in product array 



1168 



if (nDiff [nProductCounter] > 0) // only for positive a 
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dditicnal fill 

1169 
J170 
/171 
/172 

]; 

/173 

t!7S 
/176 
1177 

S2sFill [nProductCounter] ) ; 

/178 
1179 
1180 

utton [x] . code) ; 

1181 
1182 

newMinDays 

;183 
/184 
1185 
1186 
1187 

velocity) ; 

/188 
1189 
/190 
/191 
U92 
/193 
/194 

x] .velocity) ; 

1195 
1196 
U97 
/198 
/199 

/200 
J201 

r nos.) 

1202 

ts. 

1203 
/204 
/205 
/206 
/207 
/208 
/209 

nter) ; 

/210 
/211 
/212 
/213 
/214 
/215 
/216 
/217 

szWork) ; // (new buttons) 

/2Z.6 
1219 
/220 

/221 



for (y = 0; y < nProductCount ; y++) 

if (button [xj . code — stProductName (y) . nCode) 
( 

stProductName [y] .nAdds += nDif f [nProductCounter 
break ; 

} 

// Write s2s fill amount to machload rec. 

machloadRec->putField(fillS2sField + nProductCounter, n 



// Write product code to machload rec. 

machloadRec->put Field {codeS2sField + nProductCounter, b 



// Get old days and new days, and update oldMinDays and 
int days; 

if (button [x] .capacity > 1) 
{ 

days = MulDiv (button [x] .capacity, 10000, button [x] . 

if {days < oldMinDays) 
oldMinDays « days; 

} 

// Only update newMinDays if product not being removed. 
if ( ! button [x] . removed) 
{ 

days' MulUxv (button [x] .newCapacity, 10000, button[ 

if (days < newMinDays) 
newMinDays - days; 

} 

// Write button string (eg. "2, 3, 4") to sp2sload rec 

// For removed low-vel products, write "Remove". 

// Shift button numbers for remaining products up (lowe 

// to what they will be after removal of low-vel produc 

if (button [x] .removed) 

strcpy (szWork, "Remove"); 
else 

for (y « 0; y <= x; y++) 
{ 

char s zBut [ 5 ] ; 

wsprintf (szBut, %d", y + 1 - nVacatedButtonCou 
if ((y) && 

(button [y] .code == button[y - l].code) && 
(buttonfy - 1]. capacity == 0)) 
strcat (szWork, szBut) ; 
else 

strcpy (szWork, &szBut[2]); 

) 

s2sloadRec->putField(buttonListField + nProductCounter, 



// Write vel, cap, opt cap and new cap to sp2sload rec. 
// Opt cap and new cap will be zero for removed product 

s2sloadRec->putField(velocityField + nProductCounter, b 
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1222 

1223 

1224 

12Z5 

1226 

1227 
1228 
1229 
1230 

1231 
1232 
1233 
1234 
1235 
1236 
1237 

1238 
1239 
1240 
1241 
1242 
1243 
1244 
1245 
1246 
1247 
1248 

1249 
1250 
1251 
1252 
1253 
1254 

1255 
1256 
1257 
1258 
1259 
1260 
1261 
1262 
1263 
1264 
1265 
1266 
1267 
-1268 
1269 
1270 
1271 
1272 
1Z7-J 
1274 
1275 
1276 
1277 



uttcnlx] .velocity) ; 
tton(x) .capacity; 
, buttoncapacity) ; 
, button [x] . optimumCapacity) , 
, button [x] .newCapacity) ; 
, button [x] .product ) ; 



) 7 



uttonCounter ) 



ter, szWork) ; 



int buttoncapacity = (button [x) . capacity ==1) ? 0 : bu 
s2sloadRec->putField(capacityEstField + nProductCounter 
s2sloadRec->putField(capacityOptField + nProductCounter 
s2sloadRec->putField(capacitys2sField + nProductCounter 
s2sloadRec->put Field (productnameField + nProductCounter 



// write product's column list to sp2sload rec. 
if {button [x] .removed) 

s2sloadRec->setNull (columnListField + nProductCounter 



else 
{ 



szWorkfO] *» 0; 

if (button [x] .newCapacity) 

for (y = 0; y < columns; y++) 
{ 

if (col [y] .newAssignment — x + 1 



nVacatedS 



{ 



char szCol[5}; 



%d", y + 1); 



} 



wsprintf (szCol, 
if (szWork[0J) 

strcat (szWork, szCol) ; 
else 

strcpy(szWork, &szCol[2]), 



s2sloadRec->put Field (columnListField + nProductCoua 



nProductCounter++ ; 
} // if* was last button of a product 

// if button is being vacated, update vacated buttons count 

if (button [x] . removed) 
nVacatedButtonCounter++ ; 

} // for each button 

s2sloadRec->putField("01d days left", oldMinDays) ; 
ASSERT (s2sloadRec->lastError =-= PXSUCCESS); 
s2sloadRec->putField("New days left", newMinDays) ; 
ASSERT (s2sloadRec->lastError == PXSUCCESS); 

nTmp =1; // init space to sales flag to true 

machloadRec->putField( n S2S n , nTmp) ; 

ASSERT (PXSUCCESS == machloadRec->lastError) ; 

// Update machload rec. 
curMachLoad . updateRec (machloadRec ) ; 
// Append Sp2Shoad rec to table. 
curSp2SLoad. appendRec ( s2sloadRec) ; 

} 

) // if min days increased enough 
) // if curFacility. lastError == PXSUCCESS 
) // if curMachStat. lastError == PXSUCCESS 
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12 7 8 curVender Load . gotoNext ( ) ; 
1279 

/280 ) // while curVenderLoad. las tError == PXSUCCESS 
/281 

/282 // write out total additions for sp 2 sales 

/283 for (x = 0; x < nProductCount ; x++) 

/284 { 

/285 if (stProductName[x] .nAdds > 0) 

1286 { 

/287 totalRec->putField( "Route", routeldent) ; 

;288 totalRec->putField( "Product code", stProductName [x] . nCode) ; 

/289 totalRec->putField( "Product name", stProductName [x] . szName) ; 

/290 totalRec->putField( "Count", stProductName [x] .nAdds) ; 

/291 curSp2STotal. appendRec (totalRec) ; 

/292 } 

/293 ) // for 

/294 } // if all cursors created successfully 
/295 

/296 curFacility. close () ; 

/297 curMachStat . close ( ) ; 

/298 curVenderLoad . close ( ) ; 

/299 curMachLoad. close () ; 

/300 - curSp2SLoad. close () ; 

/301 curSp2STotal . close ( ) ; 
. /302 
/303 

/304 CHECKHANDLES ( ) ; 

/305 ///////////////////////////////////////////////////////////////// 
/306 } // GenerateS2SA() 



